From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 28 May 1994 12:13:21 +0000 (+0000)
Subject: (dired-get-filename): Get rid of text props from name.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~91334
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=db07847fc06e14e4f3ca1599d9c7f6612ffe81a5;p=emacs.git

(dired-get-filename): Get rid of text props from name.
---

diff --git a/lisp/dired.el b/lisp/dired.el
index ba3877683a7..8d7c76ab08c 100644
--- a/lisp/dired.el
+++ b/lisp/dired.el
@@ -1094,7 +1094,7 @@ Optional arg NO-ERROR-IF-NOT-FILEP means return nil if no filename on
       (if (setq p1 (dired-move-to-filename (not no-error-if-not-filep)))
 	  (setq p2 (dired-move-to-end-of-filename no-error-if-not-filep))))
     ;; nil if no file on this line, but no-error-if-not-filep is t:
-    (if (setq file (and p1 p2 (buffer-substring p1 p2)))
+    (if (setq file (and p1 p2 (format "%s" (buffer-substring p1 p2))))
 	;; Check if ls quoted the names, and unquote them.
 	;; Using read to unquote is much faster than substituting
 	;; \007 (4 chars) -> ^G  (1 char) etc. in a lisp loop.